BBS in a Box 4

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Prog / M / MCLUTILS.CPT / oodles-of-utils / brutal-utils / GDevice-u.lisp next >
MacBinary | 1991-10-23 | 2.4 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Oct 23 15:37:16 1991, modified Wed Oct 23 15:37:16 1991, creator Common Lisp 2, type ASCII, 1790 bytes "GDevice-u.lisp" , at 0x77e 416 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 47 44 65 76 69 63 | 65 2d 75 2e 6c 69 73 70 |..GDevic|e-u.lisp|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 00 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 06 fe 00 | 00 01 a0 a5 2b 7f ec a5 |........|....+...|
|00000060| 2b 7f ec 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |+.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 89 87 00 00 |........|........|
|00000080| 28 69 6e 2d 70 61 63 6b | 61 67 65 20 3a 6f 6f 75 |(in-pack|age :oou|
|00000090| 29 0d 28 70 72 6f 76 69 | 64 65 20 3a 47 44 65 76 |).(provi|de :GDev|
|000000a0| 69 63 65 2d 75 29 0d 3b | 3b 3b 3b 3b 3b 3b 3b 3b |ice-u).;|;;;;;;;;|
|000000b0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000000e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 0d 3b 3b |;;;;;;;;|;;;;;.;;|
|000000f0| 20 47 44 65 76 69 63 65 | 2d 75 2e 4c 69 73 70 0d | GDevice|-u.Lisp.|
|00000100| 3b 3b 0d 3b 3b 20 43 6f | 70 79 72 69 67 68 74 20 |;;.;; Co|pyright |
|00000110| a9 20 31 39 39 31 20 4e | 6f 72 74 68 77 65 73 74 |. 1991 N|orthwest|
|00000120| 65 72 6e 20 55 6e 69 76 | 65 72 73 69 74 79 20 49 |ern Univ|ersity I|
|00000130| 6e 73 74 69 74 75 74 65 | 20 66 6f 72 20 74 68 65 |nstitute| for the|
|00000140| 20 4c 65 61 72 6e 69 6e | 67 20 53 63 69 65 6e 63 | Learnin|g Scienc|
|00000150| 65 73 0d 3b 3b 20 41 6c | 6c 20 52 69 67 68 74 73 |es.;; Al|l Rights|
|00000160| 20 52 65 73 65 72 76 65 | 64 0d 3b 3b 0d 3b 3b 20 | Reserve|d.;;.;; |
|00000170| 61 75 74 68 6f 72 3a 20 | 4d 69 63 68 61 65 6c 20 |author: |Michael |
|00000180| 53 2e 20 45 6e 67 62 65 | 72 0d 3b 3b 0d 3b 3b 20 |S. Engbe|r.;;.;; |
|00000190| 75 74 69 6c 69 74 69 65 | 73 20 66 6f 72 20 77 6f |utilitie|s for wo|
|000001a0| 72 69 6e 67 20 77 69 74 | 68 20 67 2d 64 65 76 69 |ring wit|h g-devi|
|000001b0| 63 65 73 0d 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |ces.;;;;|;;;;;;;;|
|000001c0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001d0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001e0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000001f0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 0d 0d 28 6f 6f 75 |;;;;;;;;|;;..(oou|
|00000200| 2d 64 65 70 65 6e 64 65 | 6e 63 69 65 73 0d 20 29 |-depende|ncies. )|
|00000210| 0d 0d 28 65 78 70 6f 72 | 74 20 27 28 67 65 74 2d |..(expor|t '(get-|
|00000220| 6d 61 78 2d 64 65 76 69 | 63 65 20 6d 61 70 63 2d |max-devi|ce mapc-|
|00000230| 47 44 65 76 69 63 65 73 | 20 66 69 6e 64 2d 47 44 |GDevices| find-GD|
|00000240| 65 76 69 63 65 2d 63 6f | 6e 74 61 69 6e 69 6e 67 |evice-co|ntaining|
|00000250| 2d 70 6f 69 6e 74 0d 20 | 20 20 20 20 20 20 20 20 |-point. |        |
|00000260| 20 20 29 29 0d 0d 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |  ))..;;|;;;;;;;;|
|00000270| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000280| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000290| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|000002a0| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 0d 0d 28 64 |;;;;;;;;|;;;;..(d|
|000002b0| 65 66 75 6e 20 67 65 74 | 2d 6d 61 78 2d 64 65 76 |efun get|-max-dev|
|000002c0| 69 63 65 20 28 26 6f 70 | 74 69 6f 6e 61 6c 20 67 |ice (&op|tional g|
|000002d0| 6c 6f 62 61 6c 52 65 63 | 74 29 0d 20 20 28 69 66 |lobalRec|t).  (if|
|000002e0| 20 67 6c 6f 62 61 6c 52 | 65 63 74 0d 20 20 20 20 | globalR|ect.    |
|000002f0| 28 23 5f 47 65 74 4d 61 | 78 44 65 76 69 63 65 20 |(#_GetMa|xDevice |
|00000300| 67 6c 6f 62 61 6c 52 65 | 63 74 29 0d 20 20 20 20 |globalRe|ct).    |
|00000310| 28 77 69 74 68 2d 64 65 | 72 65 66 65 72 65 6e 63 |(with-de|referenc|
|00000320| 65 64 2d 68 61 6e 64 6c | 65 73 20 28 28 47 72 61 |ed-handl|es ((Gra|
|00000330| 79 52 67 6e 5f 70 20 28 | 25 67 65 74 2d 70 74 72 |yRgn_p (|%get-ptr|
|00000340| 20 28 25 69 6e 74 2d 74 | 6f 2d 70 74 72 20 23 24 | (%int-t|o-ptr #$|
|00000350| 47 72 61 79 52 67 6e 29 | 29 29 29 0d 20 20 20 20 |GrayRgn)|))).    |
|00000360| 20 20 28 23 5f 47 65 74 | 4d 61 78 44 65 76 69 63 |  (#_Get|MaxDevic|
|00000370| 65 20 28 70 72 65 66 20 | 47 72 61 79 52 67 6e 5f |e (pref |GrayRgn_|
|00000380| 70 20 3a 52 65 67 69 6f | 6e 2e 72 67 6e 42 42 6f |p :Regio|n.rgnBBo|
|00000390| 78 29 29 29 29 29 0d 0d | 28 64 65 66 75 6e 20 6d |x)))))..|(defun m|
|000003a0| 61 70 63 2d 47 44 65 76 | 69 63 65 73 20 28 66 6e |apc-GDev|ices (fn|
|000003b0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 28 61 63 74 69 | &option|al (acti|
|000003c0| 76 65 2d 73 63 72 65 65 | 6e 73 2d 6f 6e 6c 79 2d |ve-scree|ns-only-|
|000003d0| 70 20 74 29 29 0d 20 20 | 22 66 6e 20 26 6f 70 74 |p t)).  |"fn &opt|
|000003e0| 69 6f 6e 61 6c 20 61 63 | 74 69 76 65 2d 73 63 72 |ional ac|tive-scr|
|000003f0| 65 65 6e 73 2d 6f 6e 6c | 79 2d 70 0d 4d 61 70 73 |eens-onl|y-p.Maps|
|00000400| 20 66 6e 20 6f 76 65 72 | 20 74 68 65 20 47 44 65 | fn over| the GDe|
|00000410| 76 69 63 65 20 6c 69 73 | 74 2e 0d 66 6e 20 73 68 |vice lis|t..fn sh|
|00000420| 6f 75 6c 64 20 61 63 63 | 65 70 74 20 6f 6e 65 20 |ould acc|ept one |
|00000430| 70 61 72 61 6d 65 74 65 | 72 2c 20 61 20 47 44 48 |paramete|r, a GDH|
|00000440| 61 6e 64 6c 65 22 0d 20 | 20 28 64 6f 20 28 28 67 |andle". | (do ((g|
|00000450| 64 20 28 23 5f 47 65 74 | 44 65 76 69 63 65 4c 69 |d (#_Get|DeviceLi|
|00000460| 73 74 29 20 28 23 5f 47 | 65 74 4e 65 78 74 44 65 |st) (#_G|etNextDe|
|00000470| 76 69 63 65 20 67 64 29 | 29 29 0d 20 20 20 20 20 |vice gd)|)).     |
|00000480| 20 28 28 25 6e 75 6c 6c | 2d 70 74 72 2d 70 20 67 | ((%null|-ptr-p g|
|00000490| 64 29 29 0d 20 20 20 20 | 28 77 68 65 6e 20 28 6f |d)).    |(when (o|
|000004a0| 72 20 28 61 6e 64 20 28 | 23 5f 54 65 73 74 44 65 |r (and (|#_TestDe|
|000004b0| 76 69 63 65 41 74 74 72 | 69 62 75 74 65 20 67 64 |viceAttr|ibute gd|
|000004c0| 20 23 24 73 63 72 65 65 | 6e 44 65 76 69 63 65 29 | #$scree|nDevice)|
|000004d0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000004e0| 20 20 20 20 28 23 5f 54 | 65 73 74 44 65 76 69 63 |    (#_T|estDevic|
|000004f0| 65 41 74 74 72 69 62 75 | 74 65 20 67 64 20 23 24 |eAttribu|te gd #$|
|00000500| 73 63 72 65 65 6e 41 63 | 74 69 76 65 29 29 0d 20 |screenAc|tive)). |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 6e 6f |        |     (no|
|00000520| 74 20 61 63 74 69 76 65 | 2d 73 63 72 65 65 6e 73 |t active|-screens|
|00000530| 2d 6f 6e 6c 79 2d 70 29 | 29 0d 20 20 20 20 20 20 |-only-p)|).      |
|00000540| 28 66 75 6e 63 61 6c 6c | 20 66 6e 20 67 64 29 29 |(funcall| fn gd))|
|00000550| 29 29 0d 0d 28 64 65 66 | 75 6e 20 66 69 6e 64 2d |))..(def|un find-|
|00000560| 47 44 65 76 69 63 65 2d | 63 6f 6e 74 61 69 6e 69 |GDevice-|containi|
|00000570| 6e 67 2d 70 6f 69 6e 74 | 20 28 26 6f 70 74 69 6f |ng-point| (&optio|
|00000580| 6e 61 6c 20 28 77 68 65 | 72 65 20 28 25 73 74 61 |nal (whe|re (%sta|
|00000590| 63 6b 2d 62 6c 6f 63 6b | 20 28 28 70 20 34 29 29 |ck-block| ((p 4))|
|000005a0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 28 23 5f 47 65 74 |        |  (#_Get|
|000005e0| 4d 6f 75 73 65 20 3a 70 | 74 72 20 70 29 0d 20 20 |Mouse :p|tr p).  |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000620| 20 20 20 20 20 20 20 28 | 23 5f 4c 6f 63 61 6c 54 |       (|#_LocalT|
|00000630| 6f 47 6c 6f 62 61 6c 20 | 3a 70 74 72 20 70 29 0d |oGlobal |:ptr p).|
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000670| 20 20 20 20 20 20 20 20 | 20 28 25 67 65 74 2d 6c |        | (%get-l|
|00000680| 6f 6e 67 20 70 29 29 29 | 29 0d 20 20 28 6d 61 70 |ong p)))|).  (map|
|00000690| 63 2d 47 44 65 76 69 63 | 65 73 20 23 27 28 6c 61 |c-GDevic|es #'(la|
|000006a0| 6d 62 64 61 20 28 67 64 | 29 0d 20 20 20 20 20 20 |mbda (gd|).      |
|000006b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|000006c0| 77 69 74 68 2d 64 65 72 | 65 66 65 72 65 6e 63 65 |with-der|eference|
|000006d0| 64 2d 68 61 6e 64 6c 65 | 73 20 28 28 67 64 5f 70 |d-handle|s ((gd_p|
|000006e0| 20 67 64 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 | gd)).  |        |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 77 68 |        |     (wh|
|00000700| 65 6e 20 28 23 5f 50 74 | 49 6e 52 65 63 74 20 77 |en (#_Pt|InRect w|
|00000710| 68 65 72 65 20 28 70 72 | 65 66 20 67 64 5f 70 20 |here (pr|ef gd_p |
|00000720| 3a 47 44 65 76 69 63 65 | 2e 67 64 52 65 63 74 29 |:GDevice|.gdRect)|
|00000730| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 28 72 65 74 75 |        |   (retu|
|00000750| 72 6e 2d 66 72 6f 6d 20 | 66 69 6e 64 2d 47 44 65 |rn-from |find-GDe|
|00000760| 76 69 63 65 2d 63 6f 6e | 74 61 69 6e 69 6e 67 2d |vice-con|taining-|
|00000770| 70 6f 69 6e 74 20 67 64 | 29 29 29 29 29 29 00 00 |point gd|))))))..|
|00000780| 00 00 01 00 00 00 01 5a | 00 00 00 5a 00 00 00 46 |.......Z|...Z...F|
|00000790| 20 28 26 6f 70 74 69 6f | 6e 61 6c 20 28 61 63 74 | (&optio|nal (act|
|000007a0| 69 76 65 2d 73 63 72 65 | 65 6e 73 2d 6f 6e 6c 79 |ive-scre|ens-only|
|000007b0| 0e 47 44 65 76 69 63 65 | 2d 75 2e 6c 69 73 70 75 |.GDevice|-u.lispu|
|000007c0| 02 00 00 00 54 45 58 54 | 43 43 4c 32 40 00 00 00 |....TEXT|CCL2@...|
|000007d0| 00 00 54 45 58 54 43 43 | 4c 32 40 00 00 00 00 00 |..TEXTCC|L2@.....|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 a4 c3 37 18 00 00 | 00 00 00 00 01 a0 2a 63 |....7...|......*c|
|00000800| 6f 6c 6f 72 2d 61 76 61 | 69 6c 61 62 6c 65 2a 0d |olor-ava|ilable*.|
|00000810| 20 20 20 20 28 64 6f 20 | 28 28 67 64 20 28 5f 47 |    (do |((gd (_G|
|00000820| 65 74 44 65 76 69 63 65 | 4c 69 73 74 29 20 28 72 |etDevice|List) (r|
|00000830| 72 65 66 20 63 75 72 44 | 65 76 69 63 65 20 3a 47 |ref curD|evice :G|
|00000840| 44 65 76 69 63 65 2e 67 | 64 4e 65 78 74 47 44 20 |Device.g|dNextGD |
|00000850| 3a 73 74 6f 72 61 67 65 | 20 3a 68 61 6e 64 6c 65 |:storage| :handle|
|00000860| 29 29 0d 20 20 20 20 20 | 20 20 20 20 28 64 65 76 |)).     |    (dev|
|00000870| 4c 69 73 74 20 6e 69 6c | 29 29 0d 20 20 20 20 20 |List nil|)).     |
|00000880| 00 00 00 0a 00 01 00 16 | 0a 00 01 00 00 00 00 00 |........|........|
|00000890| 00 48 00 0a 43 6f 75 72 | 69 65 72 00 00 00 00 00 |.H..Cour|ier.....|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 00 00 00 00 06 00 08 | 00 d5 01 76 03 47 04 07 |........|...v.G..|
|000008c0| 00 d5 01 76 03 47 04 07 | 00 00 00 00 00 00 00 10 |...v.G..|........|
|000008d0| 00 00 00 10 00 00 00 00 | 01 00 00 00 01 00 00 00 |........|........|
|000008e0| 01 5a 00 00 00 5a 00 00 | 00 46 00 37 d3 2c 08 16 |.Z...Z..|.F.7.,..|
|000008f0| 00 00 00 1c 00 46 00 01 | 46 52 45 44 00 00 00 12 |.....F..|FRED....|
|00000900| 4d 50 53 52 00 00 00 1e | 00 02 ff ff 00 00 00 00 |MPSR....|........|
|00000910| 00 00 00 00 03 ed ff ff | 00 00 00 0e 00 37 ed 0c |........|.....7..|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+